From 9a6015e8660fd1437dfe72f75a6b9ee6fcfb2a73 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 28 May 1993 22:12:56 +0000 Subject: [PATCH] Finish previous change. --- lisp/add-log.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/add-log.el b/lisp/add-log.el index 9b180566f70..cca58931a37 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -59,7 +59,9 @@ current buffer to the complete file name." (and buffer-file-name (let (temp (file buffer-file-name)) (while (setq temp (file-symlink-p file)) - (setq file temp)) + (setq file + (expand-file-name + temp (file-name-directory file)))) (file-name-directory file))) default-directory))) (if (and (eq file-name change-log-default-name) @@ -74,7 +76,8 @@ current buffer to the complete file name." ;; for several related directories. (let (temp) (while (setq temp (file-symlink-p file-name)) - (setq file-name temp))) + (setq file-name + (expand-file-name temp (file-name-directory file-name))))) (setq file-name (expand-file-name file-name)) ;; Move up in the dir hierarchy till we find a change log file. (let ((file1 file-name) -- 2.30.2